home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_19.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  494 b   |  26 lines

  1. on enterFrame
  2.   set ActiveStartspr to 2
  3.   set Decouvrir to ActiveStartspr
  4.   set Experimenter to ActiveStartspr + 1
  5.   set Accueil to ActiveStartspr + 2
  6.   depuppetize(1, 30)
  7.   set ro to rollOver()
  8.   case ro of
  9.     Experimenter:
  10.       go("ExperimenterOpen")
  11.     Accueil:
  12.       go("AccueilOpen")
  13.     Decouvrir:
  14.       go("decouvrirOpen")
  15.   end case
  16.   if ro = 10 then
  17.     cursor([member "mousePointer", member "mousePointerMask"])
  18.   else
  19.     cursor(-1)
  20.   end if
  21. end
  22.  
  23. on exitFrame
  24.   go(the frame)
  25. end
  26.